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-- file SymSegDef s .Mesa 

-- last modified by Satterthwaite, March 21, 1978 9:32 AM 

DIRECTORY 

LitDefs: FROM "litdefs", 
SymDefs: FROM "symdefs", 
TableDefs: FROM "tabledefs", 
TreeDefs: FROM "treedefs"; 

SymSegDef s: DEFINITIONS ■ 
BEGIN 

treetype: TableDefs .TableSelector « TreeDefs . treetype; 
setype: TableDefs. TableSelector =« SymDefs .setype; 
httype: TableDefs. TableSelector « SymDefs .httype; 
sstype: TableDefs. TableSelector » SymDefs. sstype; 
ctxtype: TableDefs .TableSelector = SymDefs .ctxtype; 
mdtype: TableDefs . TableSelector = SymDefs .mdtype; 
bodytype: TableDefs .TableSelector = SymDefs .bodytype; 
Ittype: TableDefs . TableSelector = LitDefs . Ittype; 
sttype: TableDefs . TableSelector = LitDefs. sttype; 
exttype: TableDefs .TableSelector » 9; 

-- symbol table extensions 

ExtRecord: TYPE = RECORD [ 

sei: SymDefs . ISEIndex, -- the key 
tree: TreeDefs. TreeLink]; 

Extlndex: TYPE = POINTER [0 . .TableDefs .TableLimit) TO ExtRecord; 

ExtNull: Extlndex = LAST[ExtIndex]; 

-- procedural interface 

EnterExtension: PROCEDURE [sei: SymDefs . ISEIndex, t: TreeDefs .TreeLink] ; 
FindExtension: PROCEDURE [sei: SymDefs . ISEIndex] RETURNS [TreeDefs . TreeLink]; 

END. 


